home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
KillAuthor.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
779b
|
41 lines
/*
KillAuthor.zp 1.0 (22.1.94) by Ueli Kaufmann
ARexx skript für Zodiac's Point V37.117ß
Nutzen:
-------
'Loescht' alle Nachrichten des aktuellen Schreiberlings.
Brauchbar, wenn man zB im PM die Server-Infos loswerden will..
*/
PASRE ARG zpPort
ADDRESS VALUE zpPort
OPTIONS RESULTS
MESSAGEINFO Author /* aktuellen Namen ermitteln */
msgAddr = RESULT
JUMPTOMESSAGE 1 /* Balken auf oberste Nachricht stellen */
exitme = 0
lstring = "Name " || msgAddr
say lstring
do while exitme = 0
JUMPTOMESSAGE lstring
if rc ~= 0 then
do
say "gefunden"
DELETE ONE
DOWN /* sonst gibts 'ne nette Endlos-Schleife :( */
if rc = 0 then /* unterste Nachricht erreicht.. */
exitme = 1
end
else
exitme = 1
end
end
exit